home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / R / RR Newsbytes < prev    next >
Encoding:
Text File  |  1989-06-15  |  4.0 KB  |  118 lines  |  [TEXT/MSWD]
  1. (This procedure will log onto GEnie, access the NewsBytes section, and)
  2. (extract all of the Macintosh stories.)
  3. (This part does general set ups for the Procedure)
  4. (Please see the info at the end of this file, too!  Thanks.)
  5.  
  6. :SETUP
  7. GETGLOBAL W%,5
  8. GETGLOBAL U%,6
  9. NUMTOSTRING W%,W$
  10. NUMTOSTRING U%,U$
  11. CONCAT W$,/
  12. CONCAT W$,U$
  13. COPYINTO A$,W$
  14. LET EQUAL B%,0
  15. COMM 1200-N-8-HALF
  16.  
  17. REDIAL ATDT 2757337
  18.  
  19. PAUSE
  20. TYPE h
  21. PAUSE
  22. TYPE h
  23. PROMPT U#
  24. PAUSE
  25. (Insert your own password, but leave the ",316" extension!)
  26. TYPE XXXXX,XXXXXX,316^M
  27.  
  28. (If you use GEnie in COM mode, delete the next THREE lines)
  29. (and a couple more at the end of the Procedure.  For those of you who)
  30. (do not use Com mode, this procedure puts you in it temporarily.)
  31.  
  32. PROMPT <H>elp?
  33. PAUSE
  34. TYPE COM^M
  35. PROMPT P 316?
  36. TYPE 4^M
  37. PROMPT P>revious?
  38. PAUSE
  39. TYPE 1^M
  40. PROMPT P>revious?
  41. PAUSE
  42. TYPE 1^M
  43. PROMPT P>revious?
  44. GETLINE 21,E$
  45. GOSUB GETLAST
  46. (Replace the text after the comma with the pathname to save the file)
  47. (Also, the last part of it ['Mac', in this case] is part of the file name)
  48. (The date is then appended to the end.  Ex: Mac 6/10)
  49. COPYINTO L$,Hard Disk:Text Stuff:Newsbytes:Mac 
  50. CONCAT L$,A$
  51. RECA L$
  52.  
  53. (This part repeats until all the stories are read into the file.)
  54.  
  55. :REPEAT
  56. ADD B%,1
  57. NUMTOSTRING B%,M$
  58. TYPE M$
  59. TYPE ^M
  60. ALERT1 <RETURN>?/TYPE ^M
  61. ALERT2 <S>croll/TYPE S^M
  62.  
  63. (For some odd reason, Red Ryder, once it sees the text an ALERT is )
  64. (alerting for, skips the next PROMPT.  My work around is to add a first)
  65. (PROMPT which will stop that from happening.  I know, it's weird, but)
  66. (it works!)
  67.  
  68. PROMPT Apple Headlines
  69. ALERT1 <RETURN>?/TYPE ^M
  70. ALERT2 <S>croll/TYPE S^M
  71. PROMPT <P>revious?
  72. (Check to see if we're on the last story)
  73. TEST B% = C%
  74. IF YES JUMPTO DONE
  75. JUMPTO REPEAT
  76.  
  77. (All done!  Let's log off.)
  78.  
  79. :DONE
  80. CLOSE
  81.  
  82. (If you use GEnie in COM mode all the time, delete the next TWO lines)
  83. (If you don't, this will return you to your regular mode (from COM mode)
  84.  
  85. TYPE C^M
  86. PROMPT <H>elp?
  87. TYPE BYE^M
  88. END
  89.  
  90. (Short 'function' that grabs the last line's menu choice number.)
  91.  
  92. :GETLAST
  93. INSTR D%,E$,1,.
  94. SUBTRACT D%,1
  95. LEFT$ F$,D%,E$
  96. STRINGTONUM F$,C%
  97. RETURN
  98.  
  99. (That's it!  If I have enough time, I may expand this to grab other)
  100. (stories that the user can define.  This is my one of my first real)
  101. (procedures that actually do some interesting things, so please, tell)
  102. (me how I did!  If there's enough response, it will encourage me to do)
  103. (another version, adding more options!  Feel free to improve upon this,)
  104. (I only ask that if you do release a new procedure with parts of this)
  105. (code, that you mail [US Mail or Electronic) me a note saying so.)
  106. (Of course, if you'd like to include my name, or send me royalties, that's)
  107. (fine, too!)
  108. (If you REALLY enjoy this procedure, send me a Bicentennial quarter!)
  109. (I would enjoy this.  This proc did take time, effort, GEnie billing, etc)
  110. (so, anything would be nice.  Anyways, modify this text file to what)
  111. (you desire [pathnames, etc...], but AFTER writing down my address:)
  112. (  Jason Haslup, P.O. Box 1963, Cave Creek, AZ  85331)
  113. (  GEnie: J.HASLUP       The Silver Demesnes BBS: 4pm [MST] to 8 am M-F
  114. (                                                   24 hours Weekends
  115. (                                 602-997-2460)
  116. (I'm the Co-Sysop of this fine, NEW board!     Please try it!)
  117. (Thanks for your interest and time!)
  118. (When's Red Ryder 11 coming out????  :-)